home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS075.dsk / VIDEO TEST.int < prev   
Text File  |  2012-02-16  |  3KB  |  83 lines
  1. 1 REM *** VIDEO TESTS ***
  2. 2 REM * WRITTEN 1979 BY *
  3. 3 REM *   PAUL IRWIN    *
  4. 4 REM *  613-728-6728   *
  5. 5 REM *******************
  6. 6 REM *
  7. 10 TEXT :CALL -936
  8. 20 TAB 10
  9. 25 PRINT "OTTAWA 6502 USER GROUP"
  10. 30 PRINT :TAB 16
  11. 35 PRINT "VIDEO TEST"
  12. 50 PRINT :TAB 5
  13. 55 PRINT "GENERATES ONE OF SIX TEST PATTERNS "
  14. 60 PRINT "THAT ARE COMMONLY USED BY T V MAINTEN-"
  15. 65 PRINT "ANCE PEOPLE.  USE BARS TO SEE VERTICAL"
  16. 70 PRINT "OR HORIZONTAL LINEARITY, AND THE DOTS"
  17. 75 PRINT "TO OBSERVE PRECISE CONVERGANCE OF"
  18. 80 PRINT "COLOUR SETS."
  19. 85 PRINT :TAB 5
  20. 90 PRINT "USES THE SET OF APPLE COLOURS:"
  21. 95 PRINT :GOSUB 100:GOTO 900
  22. 100 T1=5:T2=25
  23. 110 TAB T1:PRINT "0 = BLACK";:TAB T2:PRINT " 8 = BROWN"
  24. 120 TAB T1:PRINT "1 = MAGENTA";:TAB T2:PRINT " 9 = ORANGE"
  25. 130 TAB T1:PRINT "2 = DARK BLUE";:TAB T2:PRINT "10 = GREY"
  26. 140 TAB T1:PRINT "3 = PURPLE";:TAB T2:PRINT "11 = PINK"
  27. 150 TAB T1:PRINT "4 = DARK GREEN";:TAB T2:PRINT "12 = GREEN"
  28. 160 TAB T1:PRINT "5 = GREY";:TAB T2:PRINT "13 = YELLOW"
  29. 170 TAB T1:PRINT "6 = MEDIUM BLUE";:TAB T2:PRINT "14 = AQUA"
  30. 180 TAB T1:PRINT "7 = LIGHT BLUE";:TAB T2:PRINT "15 = WHITE"
  31. 190 RETURN 
  32. 900 VTAB 23:TAB 14
  33. 910 PRINT "<HIT-A-KEY>"
  34. 920 X= PEEK (-16384): POKE -16368,0:IF X<=127 THEN 920
  35. 990 GOTO 30000
  36. 1000 TEXT :CALL -936
  37. 1002 TAB 5:PRINT "FOR CHOICE OF SOLID COLOUR"
  38. 1004 PRINT 
  39. 1010 PRINT "HERE IS THE SELECTION OF COLOURS:"
  40. 1015 PRINT :GOSUB 100:PRINT 
  41. 1020 PRINT "CHOOSE 0 TO 15 FOR A COLOUR,"
  42. 1022 PRINT 
  43. 1024 INPUT "OR ANYTHING ELSE FOR MENU AGAIN.  ",C
  44. 1026 IF C<0 OR C>15 THEN 1090
  45. 1028 CALL -936:GR : POKE -16298,0
  46. 1030 COLOR= C: POKE -16302,0:FOR I=0 TO 39:VLIN E0,47 AT I:NEXT I
  47. 1035 X= PEEK (-16384): POKE -16368,0:IF X<=127 THEN 1035
  48. 1040 GOTO 1000
  49. 1090 RETURN 
  50. 2000 REM RAINBOW
  51. 2020 N=1:FOR L=1 TO 6:COLOR= COL(L):FOR I=1 TO 6:M=N+I:VLIN E0,47 AT M:NEXT I:N=N+6:NEXT L
  52. 2090 RETURN 
  53. 3000 TEXT : POKE -16298,0:PRINT :CALL -936
  54. 3010 FOR I=2 TO 38 STEP 4:FOR J=1 TO 22 STEP 3
  55. 3020 VTAB J:TAB I:PRINT ".";
  56. 3030 NEXT J:NEXT I
  57. 3090 RETURN 
  58. 4000 REM VERTICAL BARS
  59. 4020 FOR I=0 TO 13:VLIN 1,46 AT 3*I:NEXT I:RETURN 
  60. 5000 REM HORIZ BARS
  61. 5020 FOR I=0 TO 15:HLIN 0,39 AT 3*I+1:NEXT I:RETURN 
  62. 6000 GOSUB 4000:GOSUB 5000:RETURN 
  63. 20000 TEXT :CALL -936:TAB 4:VTAB 2:PRINT "VIDEO TEST PATTERNS:"
  64. 20002 PRINT :PRINT 
  65. 20010 TAB 12:PRINT "1..SOLID COLOURS":PRINT :TAB 12:PRINT "2..RAINBOW":PRINT 
  66. 20020 TAB 12:PRINT "3..DOT MATRIX":PRINT :TAB 12:PRINT "4..VERTICAL LINES":PRINT 
  67. 20030 TAB 12:PRINT "5..HORIZONTAL LINES":PRINT :TAB 12:PRINT "6..CROSSHATCH":PRINT 
  68. 20035 TAB 12:PRINT "ANY OTHER NUMBER TO QUIT"
  69. 20040  POKE 34,21:CALL -936:TAB 20:INPUT "SELECTION ",B:IF B<1 OR B>6 THEN 32760
  70. 20050 TEXT :CALL -936:GR : POKE -16302,0:COLOR= 0:FOR I=40 TO 47:HLIN E0,39 AT I:NEXT I
  71. 20060 COLOR= 15:B=1000*B:GOSUB B
  72. 20065 IF B=1000 THEN 20000
  73. 20070 B= PEEK (-16384): POKE -16368,0:IF B<=127 THEN 20070
  74. 20080 GOTO 20000
  75. 30000 DIM X(5),Y(5),B(10),A$(40),COL(6):X(1)=Y(1)=0
  76. 30020 COL(1)=3:COL(2)=6:COL(3)=12:COL(4)=13:COL(5)=9:COL(6)=1
  77. 30030 GOTO 20000
  78. 32760 TEXT :CALL -936
  79. 32762 VTAB 12:TAB 7
  80. 32764 PRINT "VIDEO TEST IS OFF THE AIR"
  81. 32765 VTAB 22
  82. 32767 END 
  83.